home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Mops 2.7 / Mops source / System source / alertQ next >
Encoding:
Text File  |  1992-09-18  |  657 b   |  20 lines  |  [TEXT/MSET]
  1. \ ALERT"  -  Mops version.
  2.  
  3. \ This was standard in Neon 2.0, but I'm making it optional in Mops, since
  4. \ my opinion is that a "proper" application should really have customized
  5. \ alert boxes.  But if you need something quick and dirty, use this.
  6.  
  7. \ We've also changed over to a resourced-based alert box for alert".
  8. \ The resources are ALRT 900 and DITL 900, in the file Mops.rsrc.  If you
  9. \ use alrt" in an application, these resources will automatically be 
  10. \ included in the application by Install.
  11.  
  12. : (AL")        \ ( n type -- )
  13.     (lit-str)  3 pick  NIF  2drop 2drop  EXIT  THEN
  14.     (al)  ;
  15.  
  16. : ALERT"
  17.     ?comp  postpone (AL")  ,"  ;        immediate
  18.  
  19. compile: alertQmod
  20.